<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.hc</name>
<id>-1</id>
<cardCount>59</cardCount>
<cardID>4217</cardID>
<listID>11156</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>--------------------------------------------------------------------------------------------------------Multicom Publishing Inc.®----------------------------------------------------------------------------------------------------------------------------------System Handlers:-----------------------------on openStackspinCursorhide menuBarhide titleBarcolorizeHCinitGlobalsopenPictureresetSystemPaletteloadPalettevenusSndprepStackloadTxtend openStack---------------------------------Utility Handlers---------------------------on resetSystemPaletteset cursor to busypicture "SYSTEM_COLORS",resource,rect,false,8set the rect of window "SYSTEM_COLORS" to "639,479,640,480"show window "SYSTEM_COLORS" -- show is needed to reset palette!close window "SYSTEM_COLORS"noPaintWhiteif there is a window "black" then ¬close window "black"end resetSystemPaletteon prepStackget the screenRectput it into hereif here > 342 then ¬set the screenRect to "0,0"end prepStackon closeStackspinCursornoPaintWhiteif there is a window "venMenu"then close window "venMenu"noPaintWhiteend closeStackon openPicture winName -- handle openPicture sent by Picture XCMDglobal gCurrWindowif winName <> "SYSTEM_COLORS" thenput winName into gCurrWindowend ifend openPictureon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCon initGlobalsglobal gGlobalsOKif gGlobalsOK is true then exit initGlobalsif LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilitesput true into gGlobalsOKend initGlobals--------------------------Navigational Handlers---------------------------on loadPalettenoPaintWhitepalette "venMenu", "0,417" --opens navigational paletteif there is a window "runMenu" then ¬close window "runMenu"end loadPaletteon prepWinspinCursorpicture "black",resource,rect,false,8 --draws a black screen before showing thumbnailset rect of window "black" to "0,0,640,480"noPaintWhiteshow window "black"end prepWinon goSolarlock screengo to stack "HOME"unlock screenend goSolaron goNextlock Screengo nextunlock Screenend goNexton goPrevlock Screengo previousunlock Screenend goPrevon goBacklock Screengo to card "MAIN MENU"unlock Screenend goBackon goEventplay "mouseClick"lock screengo to cd "MAIN MENU"unlock screenend goEvent---------------------OPTIONS HANDLERS--------------------------------on loadTxtglobal marker, printFieldput "PLANETS:VENUS:VENUS.TXT" into markerput "Venus" into printFieldend loadTxt---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstall---------------------extra Handlers--------------------------------on venusSndglobal switchif switch > 0 thenexit venusSndend ifQTMovie OpenMovie,Plain,"PLANETS:AUDIO:VENUS211KHz Movie", "1005,1005",¬nocontroller,dontPaintWhite,closeOnFinishset the visible of window "VENUS211KHz Movie" to falseend venusSnd</script>
